home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 04 - 05 (1991)(MindCraft Publishing)[no boot].zip / Nibble Volume 12, No. 04 - 05 (1991)(MindCraft Publishing)[no boot].po / NIBBLE.1991:APR.VOL12.NO04 / SEARCH.MOD.DEMO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  24 lines
  1. 1  REM  **************************
  2. 2  REM  * SEARCH.MOD.DEMO        *
  3. 3  REM  * BY LEE REYNOLDS        *
  4. 4  REM  * COPYRIGHT (C) 1991     *
  5. 5  REM  * MINDCRAFT PUBL. CORP.  *
  6. 6  REM  * CONCORD, MA 01742      *
  7. 7  REM  **************************
  8. 10  HOME : PRINT "DEMO PROGRAM FOR": PRINT "APPLESOFT SEARCH AND MODIFY": PRINT "BY LEE REYNOLDS": PRINT "COPYRIGHT(C) 1991, MINDCRAFT PUBL. CORP.": PRINT 
  9. 20  PRINT "THIS PROGRAM DEMONSTRATES HOW": PRINT "APPLESOFT SEARCH AND MODIFY CAN BE USED": PRINT "TO CHANGE A 'GOTO XXXX' STATEMENT SO": PRINT "THAT YOU CAN GO TO ANY LINE YOU WANT."
  10. 30  PRINT  CHR$(4)"BLOAD SEARCH.MOD": PRINT : CALL 768(ADDR,100,171)
  11. 40  REM  171 IS THE TOKEN NUMBER FOR "GOTO"
  12. 50  PRINT "INSTRUCTIONS:": PRINT "ENTER 1 IF YOU WANT TO SEE LINE 1000": PRINT "EXECUTED, ENTER 2 FOR LINE 2000, OR": PRINT "ANY OTHER NUMBER TO STOP THE PROGRAM.": PRINT 
  13. 60  INPUT "YOUR CHOICE? ";CHOICE
  14. 70  IF CHOICE <1  OR CHOICE >2  THEN  PRINT "THAT'S ALL FOLKS!": END 
  15. 80 LINE = 1000: IF CHOICE = 2  THEN LINE = 2000
  16. 90  GOSUB 110
  17. 100  GOTO 1000
  18. 110  FOR I = 1 TO 4
  19. 120 NUM = LINE/(10 ^(4 -I)): POKE ADDR +I, ASC( STR$(NUM))
  20. 130 LINE = LINE -NUM *(10 ^(4 -I))
  21. 140  NEXT I
  22. 150  RETURN 
  23. 1000  PRINT  CHR$(7)"WE'RE AT LINE 1000!": GOTO 60
  24. 2000  PRINT  CHR$(7)"WE'RE AT LINE 2000!": GOTO 60